home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / paques.sha < prev    next >
Encoding:
Text File  |  1994-03-01  |  682 b   |  20 lines
  1. 1 REM JOUR DE PAQUES
  2. 2 REM DISTRIBUE PAR W-TEL
  3. 3 REM (16) 62 93 74 05  24h/24
  4. 4 REM BANQUE DE DONNEES
  5. 5 REM SUR SERVEUR MINITEL
  6. 10 INPUT "ANNEE:",J:IF J<1582 OR J>2200 THEN 10
  7. 20 X=INT(J/100):ON 22-X GOTO 30,40,40,50,60,70,70
  8. 30 M=24:N=6:GOTO 80
  9. 40 M=24:N=5:GOTO 80
  10. 50 M=23:N=4:GOTO 80
  11. 60 M=23:N=3:GOTO 80
  12. 70 M=22:N=2
  13. 80 A=J-INT(J/19)*19:B=J-INT(J/4)*4:C=J-INT(J/7)*7:D=19*A+M:D=D-INT(D/30)*30:E=2*B+4*C+6*D+N:E=E-INT(E/7)*7:F=22+D+E:G=D+E-9:IF F>31 THEN 100
  14. 90 PRINT "DIMANCHE DE PAQUES"J" EST LE"F"MARS":GOTO 140
  15. 100 IF G<25 THEN 130
  16. 110 IF G=26 THEN G=19:GOTO 130
  17. 120 IF D=28 AND A>10 THEN G=18
  18. 130 PRINT "DIMANCHE DE PAQUES"J" EST LE"G"AVRIL"
  19. 140 CLS:GOTO 10
  20.